MOTOROLA 

Semiconductor Products Inc. 



AN-850 

Appllcatioil Note 



MULTI-PROCESSOR CONTROLLER 
USING THE MC6809E AND 
THE MC68120 

Prepared by 
David L. Ruhberg 
and 

Michael C. Wood 
Microprocessor Applications Engineering 
Austin, Texas 



As the demand for system performance increases, the 
design engineer is faced with the task of providing additional 
throughput. To obtain the increased performance, system 

flexibility should provide for additional expansion without 
the need for total redesign of the existing system. Two alter- 
natives are available to the designer in developing any 
microprocessor system: single processor and multi-processor. 
This application note investigates both alternatives and 
describes a basic multi-processor system using Motorola's 
MC6809E and MC68120. 

The single processor system is the more common approach 
in use, since one microprocessing unit (MPU) typically has 
been able to handle the system performance requirements. 
Hardware and software are both simpler with only one MPU 
on the bus; however, as system performance requirements 
continue to increase, the design engineer is faced with the job 
of either upgrading the system or redesigning a complete 
system. The characteristics of a single processor system 
should be reviewed before jumping into another single pro- 
cessor system redesign. Basically, the total growth of the 
single processor system is limited to the throughput rate of 
the MPU, so all future tasks and expansions must be taken 
into account at design time to avoid aaother complete system 
redesign. An MPU capable of handling all of the anticipated 
expansion must be selected. Thus, the MPU will not perform 
anywhere near its rated peak efficiency until the system is ex- 
panded. In any area where rapid system expansion is an- 
ticipated, the single processor system is a temporary solution 
at best. 

The multi-processor configuration can eliminate the ex- 
pansion problems which are present in a single MPU design. 

An interface containing a bus arbitrator and data transfer 
area common to both MPU buses could keep the buses 
separate and also allow the two systems to communicate. 
Thus, the simpUcity of single bus systems can be maintained 



while obtaining the expansion capabiUties of the muhi- 
processor system. By adding more of these interfaces, the 
system expansion occurs by simply adding poipfaerals to an 
MPU bus. Two features utilized by the Motorola MC68120 
Intelligent Peripheral Controller (IPQ provide the bus ar- 
bitrator and data transfer area for a multiple MPU system 
just described. These features are six semaphore registers and 
128 bytes of dual-ported RAM. With the MC6809E MPU 
operating the system bus (master) and the MC68120 contain- 
ing the system bus interface, as well as the CPU controlling 
the local bus (slave), the system now has the best features of 
both the single and multi-processor approaches. 

TRADITIONAL MPU MULTI-PROCESSING 

One of the most common multi-processor schemes has 
been a bi-phase technique in which both processors operate 
from opposite phases of a system clock (see Figure 1). The 
memory and peripherals are accessed during each MPU clock 
high time. This scheme has the benefit of lower costs due to 
the presence of only one bus; however, some of the cost sav- 
ings may be consumed in circuitry required to synchronize 
the clocks and in buffers required to prevent bus contention. 
In order to debug the bi-phase system, most of the hardware 
and software in both of the MPU systems must be working. 
Also, care must be taken when all resources are available to 
both processors, as in this bi-phase configuration, to avoid 
inadvertently clearing status flags or making changes in 
RAM. The major drawback to this system is that the system 
is limited to two MPUs. 

The multiple bus configuration can simplify or eliminate 
most of the constraints and limitations of the bi-phase ap- 
proach (see Figure 2) provided a simple bus arbitration 
scheme is available. The debugging of this type of system is 
simplified since one bus can operate independent of the 
other, except when the buses need to communicate with each 
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FIGURE 2 — Multi-Processor Multiple Bus Technique (Asynchronous Clocks) 
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other. This configuration also physically eliminates any 
chance of one processor accidently clcciring any flags in the 
nonshared resources of the other system. There is no need to 
determine if the other processor is using the bus for mors 
than one cycle (read-modify-write) since each processor has 
its own bus, thus eliminating any chance of bus contention. 
The bi-phase approach is limited to two processors, whereas 
this system is limited only by the thiou^put of the system 
(master) processor. 

DESCRIPTION OF THE BASIC SYSTEM 
Using the multiple bus scheme, the MC6809E-MC68120 

multi-processor pair can be used in many different applica- 
tions. One particular application could be a system in which 
the multi-processor pair is responsible for holding the 
pressine and temperature in a given system within certain 
limits (see Figure 3). To simplify matters, the application 
discussed here concentrates only on the MC6809E and 
MC68120 interface. 

HARDWARE 

The MC6809E MPU is one of the most advanced 8-bit 
microprocessor, units on the market today. The M6809E (see 
Figure 4) <x>ntains two 16-bit index registers, two 16-bit in- 
dexable stack pointers, two 8-bit accumulators (which can be 
concatenated to form one 16-bit accumulator), and a direct 



page register that allows the cBrect addfesang mode to be 
used throughout memory. 

The basic instructions of any computer are greatly en- 
hanced by the presence of powerful addressing modes. The 
M6809E has one of the most complete sets of addressing 
modes available on any microprocessor today. For example, 
the M6809E contains 59 basic instructions; however, due to 
these addressing modes, the M6809E will recognize 1464 dif- 
ferent variations of the basic instructions. It features an ex- 
ternal clock input which facilitates synchroniang the pro- 
cessor to an overall multi-processor system. Other hardware 
features include three-state control (TSC) inputs for control 
of internal bus buffers and the advanced valid memory ad- 
dress (AVMA) allows efficient use of common resources in a 
multi-processor system. Two outputs which facilitate multi- 
processor configurations are the last instruction cycle (LIC) 
output and the BUSY output. The LIC output indicates 
when an op)code fetch will occur. The BUSY output is a 
status line that indicates the need to hold off the bus transfer 
for the next bus cycle. The M6809E also contains three 
prioritized interrupts (NMT, IRQ, FIRQ) and a SYNC 
acknowledge output which allows synchronization to an ex- 
ternal event. These features make the MC6809E an easy 
MPU to incorporate into a multi-processor system. 

The MC68120 Intelligent Peripheral Controller (IPC) is a 
general purpose mask-programmable peripheral controller 
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FIGURE 4 - MCeaOSE Block Diagram 



designed to simplify the interface between two MPU buses. 
The MC68120 IPC is a single chip microcomputer containing 
the hardware elements necessary to interface multiple pro- 
cessors into one system. These hardware elements consist of 
dual-ported RAM and semaphore registers. The dual-ported 
RAM provides a means for the IPC, and other devices inter- 
connected on a system bus, to exchange data without affec- 
ting devices on a local bus. Six semaphore registers are used 
as a software tool in arbitrating between the system and the 
local bus. The IPC also contains 2K of mask-programmable 
ROM which allows the user to provide customized firmware 
for his application. A full-duplex, asynchronous, serial com- 
munications interface (SCI) with two data formats are 
available at a variety of baud rates. A 16-bit programmable 
timer consisting of a free-running counter which is in- 
cremented by the MPU E-clock is also incorporated in the 
IPC. The IPC also has up to 21 I/O lines available, depen- 
ding on which of the on-chip resources are being used. A 
block diagram of the MC68120 IPC is shown in Figure 5. 

In the application discussed here, the MC6809E-MC68120 
multi-processor pair is responsible for monitoring a 
temperature and jM^ssure sensitive system and holding it 
within safe operating hmits. The MC68120 is responsible for 
monitoring the analog-to-digital (A/D) converters (such as 
Motcffi^'s MC14443) which reflect the tmipets^e and 



pressure at various points within the system. The MC68120 
checks the data and, if it is not within a desired range, signals 
the MC6809E and passes the data. The MC6809E will then 
take the appropriate action. The implementation, as shown 
in Figure 6, consists of only one MC6809E and MC68120 in- 
terface although many more can be added in a similar man- 
ner. The system bus (MC6809E), as implemented, has IK of 
RAM, 2K of EPROM, and the MC68120 on it. The 
MC68120 is operated in an expanded multiplexed mode with 
2K of RAM, 2K of EPROM, and the demultiplexing latch 
(SN74LS373) on the bus. The MC68120 also has an RS-232 
interface connected to the transmit and receive pins on the 
SCI to utilize the resident monitor in the ROM on the 
MC68120. The detailed schematic of the implemented hard- 
ware is shown in Figure 7. The resident monitor allows the 
user to examine internal registers and the dual-ported RAM 
from the local bus with a terminal, as well as to develop and 
modify small programs. This ability greatly enhances the 
testability of the system. 

SOFTWARE 

The software needed for transfer of information in the 
multi-processor system is imde much easier with the use of 
Ae smm§^m roisters and dual-pcHted RAM, located in the 
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FIGURE 5 - MCeSIZO Block Diagram 

IPC. The dual'ported RAM provides a vehicle for transfer- 
ring data between a system and local bus while keeping each 
bus isolated. Semaphore registers are provided as a software 
tool to arbitrate between shared resources such as the dual- 
ported RAM or peripheral devices. The semaphore registers 
may also be used to indicate that a task is in process or has 
been completed. 

Each semaphore register (as shown below) consists of a 
semaphore bit (SEM, bit 7) and an ownership bit (OWN, bit 
6). The remaining six bits (bO-b5) are not used and when 
read, will read zeroes. The semaphore bits are test and set 
bits with hardware arbitration during simultaneous accesses. 
Basically, the semaphore bit is cleared when written and set 
when nad dnring a sin^e processor access. 



available. Thus a write to any semaphore register clears the 
semaphore bit and makes the associated resources 
"avaiMjte," 
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A single processor semaphore bit truth table is shown 
below. During a write to a semaphore register, the data is 
disregarded and the semaphore bit is cleared. However, dur- 
ing a read, the data read from the semaphore bit can be iMer- 
preted as: # — resotirces ase available, 1 — motirces ait ncrt 



In passing data from the IPC to a system processor 
through the dual-ported RAM, the semaphore registers can 
be used to indicate to the system processor that data is ready. 
The system processor can poll, for example, on semaphore 1 
and when data is ready, the IPC CPU will write to 
semaphore 1, thus clearing the semaphore bit. A simple poll- 
ing routine for the system processor is shown below. 
The system processor will always read a 1 in the semaphore 
bit of semaphore regi^er 1 until semaphore register 1 is writ- 
ten to by the IPC CPU. This wiU clear the semaphore bit and 
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FIGURE 6 — Hardware Block Diagram 



cause the system processor to jump to a program and get 
dsita. 
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It may now be necessary for the IPC CPU to determine if 
the system processor reads the data from the dual-ported 
RAM in case more data needs to be sent. Another semaphore 
register could be dedicated for this purpose or the same 
semaphore register could be used again. Timing complica- 
tions could arise when reads and writes of the same 
semaphore register are occurring from both buses. For exam- 
ple, if the IPC CPU wrote to semaphore 1 to clear the 
semaphore bit and then polls on semaphore 1 , the IPC could 
set the semaphore bit before the system processor detected it 
as clear. Therefore, to avoid an inadvertent set, a delay must 
be incorporated in the program between the read and write of 
the sem^hore to guarantee that the semaphore bit was 
detected dear by the system processor. 

In token-passing ^^^icadons, the ownership bits can be 
used to simplify the pt;ce^l«. The ownership bit is a read- 
er t»t tkit4ai^tes.^>tk»^ piroce$«nr sist thesms^^mte bit> 



When the semaphore bit is set, the ownership bit indicates 
which processor set it. When the semaphore bit is not set, the 
ownership bit indicates which processor last set the 
semaphore bit: OWN = 0, the other processor set it; 
OWN=l, this processor set SEM. After reset, all 
semaphores are set and the IPC owns all of them except 
semaphore 2 which the system processor owns. 

As mentioned earlier in the hardware section, this 
MC6809E-MC68120 system monitors the temperature and 
pressiu-e in a typical system. Basically, the MC68120 ac- 
cumulates and monitors the data. The data is transferred to 
the MC6809E either when the MC6809E requests it, at the 
end of 12 hours, or if the data is out of the desired range. The 
CPU on the local bus is responsible for reading the data from 
the A/D converters every 15 seconds. In this software, it is 
assumed that the data is formatted in such a way that both 
the temperature and pressure are available in one byte of 
data as shown below. 
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flag has been set 300 times, the data is read. After the data is 
read, it is stored in RAM and checked to determine if it is 
within the desired range. If not within the desired rang e, an 

error condition is realized. The MC68120 then pulls the IRQ 
line to the MC6809E low and begins dumping all the data (15 



second increments) to the MC6809E through the dual-ported 
RAM ($BO-EB). The MC68120 can hold up to 8 hours of 
data in 15 second increments. The MC68120 will also dump 

its 15 second data upon request from the MC6809E. Every 15 
minutes, the MC68120 stores the value into dual-ported 
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FIGURE 8 - MC68120 Flowchart (Continued) 
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FIGURE 8 - MC68120 Flowchart (Continued) 
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RAM ($80-AF)and if after 12 hours no error has occurred, it 
will dump its 15 minute data to the MC6809E via the dual- 
ported RAM. See Figures 8 and 9 for the MC68120 
flowchart and software. When the MC6809E receives data, it 
does two things: first it writes the data out to a printer via 
another MC68120 (perhaps an MC68122 — Cluster Terminal 
Controller; for more information, see the Motorola 
MC68122 Data Sheet); and second, if the transfer is a result 
of an error condition, the MC6809E stores the data in RAM. 
After the MC6809E stores the data into RAM, the last bytes 
of data are used to determine which way to modify the 
temperature and pressure and then modifies them according- 
ly (one incremegt up or down). These bytes are also used to 
calculate the temperature and pressure differential. If the dif- 
forraitial exceeds a designated amount, the temperature and 
pressure are modified again (turned up or down) to compen- 
sate. (In this application, temperature and pressure are 
assumed to be directly related — increasing one automatical- 
ly increases the other.) The MC6809E then provides a signal 
via a sem aphore register which causes the MC68120 to clear 
the IRQ line. The MC6809E also monitors an input from a 
display panel in which the opo^tor could ask for a listing of 
IS second data. See Figures 10 and 11 for the MC6809E 
flowchart and software. The implemented portion of the 



MC6809E-MC68120 system is intended to show what is need- 
ed in the basic system and demonstrate the modularity of the 
software for expansion purposes. When the system requires 
expansion, more MC68120s can ^ily be added to the 
MC6809E bus. The added MC68120s will use the same soft- 
ware as the existing MC68120, and the MC6809E software 
will only require slight modification to poll devices and 
discern which MC68120 generated the low IRQ. The same 
service routines may be used that are now in service. 

EXPANDING THE BASIC SYSTEM 

Specific computational tasking is one of the many func- 
tions the MC68120 may perform. When time consiuning 
functions need to be implemented, parallel processing 
becomes a viable alternative. TYas is easily accomplished by 
putting several MC68120s on the system bus. Simple data en- 
cryption is one example of the tasks the MC68120 can per- 
form. Others could include calculating trigonometric func- 
tions, fourier transforms, or other data processing needs. 

Expansion of the basic system by using additional 
MC68I20S requires a method of interrupt distinction. The 
problem that arises when multiple interrupts are needed is 
that most microprocessors have only one nonmaskable and 
one (sometimes two) maskable interrupt inputs. Therefore, 
in larger systems, a large polling routine must be used to 
determine which device caused the actual interrupt. 

An ideal situation would be to have a separate input pin on 
the microprocessors for each interrupt required. However, it 
is not feasible to devote pins on the processor otclusively for 
this purpose when it can be done more ecorionuciEdly wiUi oc- 
ternal devices. 

By using the MC6828 Priority Interrupt Controller (PIC), 
each interrupt input to the processor could be easily expand- 
ed to have eight maskable interrupt inputs. The primary pur- 
pose of the PIC is to generate a modified address to ROM in 
response to prioritized inputs. The PIC assigns each interrup- 
ting device a unique ROM location which contains the start- 
ing address of the appropriate service routine. After the 
MPU detects and responds to an interrupt, the PIC directs 
the MPU to the proper memory location. The PIC simphfies 
multiple interrupt handling and interfacing it to the 
MC6809E is easily done. They can also be cascaded to aUow 
more than eight interrupts. 

When servicing slow peripherals such as low baud rate ter- 
minals and printers, the MC68120 can relieve the host of 
these time consuming chores, formulate the data into bigger 
blocks, and allow the host to obtain the data all at once. The 
MC68122 (Cluster Terminal Controller) is a prime example. 

OVERCOMING SYSTEM PROCESSOR LIMITATIONS 

When expanding the multi-processor system, the limiting 
factor becomes the throughput of the system processor. The 
system processor must be able to service all the MC68120s in 
a system and still have time to process the information it has 
received. As this occurs, the tendency would be to shift more 
and more of the processing responsibility from the system 
processor towards the local processor. These MC68120s 
would then provide the system bus another level of 
MC68120s leaving the system processor free as communica- 
tions arbitratcH-s for the lower lev^ of MC68120s. 

CONCLUSION 

The MC6809E and the MC68120 utilize the semaphore 
registers and dual-ported RAM to provide an efficient multi- 
processor system that is easily expandable. This feature 
allows the engineer to design a system that has the capability 
of simple expansion and increases its time of usefulness. 
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$1789 


TEMPORARY ADDRESS STORAGE 




00046 






* 






(2 bytes) 




00047 


178B 


A 


NRMPTR 


EQU 


$178B 


NORM, RAM DUMP POINTER (2 BYTES) 


00048 


0011 


A 


LOW 


EQU 


$11 


TXDUCER DATA SHOULD BE ABOVE 




00049 






* 






THIS VALUE 




00050 


OOCC 


A 


HIGH 


EQU 


$cc 


TXDUCER DATA SHOULD BE BELOW 




00051 






* 






THIS VALUE 




00052 


0000 


A 


ISQLW 


EQU 


$00 


VALUE FOR PORT 2 TO POLL '09 




00053 






* 






IRQ LOW 




00054 


0001 


A 


IRQHG 


EQU 


$01 


VALUE FOR PORT 2 TO PULL '09 




00055 






* 






IRQ HIGH 




00056 


178D 


A 


FROM 


EQU 


$178D 


TEMP RAM FOR DATA ADDRESS (2 bytes) 


00057 


EBBO 


A 


TO 


EQU 


$EB80 


END OF DATA 




00058 












< 
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SA: 


1 






























KFlOIGfOleiA 


JLa00 












ORG 


$E800 




Y>X}x}XiX. 










It 










KtlOlOK} £, 












INITIALIZATION ROUTINE 


























oE 


T "7 17 TP 

1 / r r 


A 






LDS 


#$17FF 


INIT. STACK 


t% /nm ^ c TV 


Eo0o 


CE 


0000 


A 






LDX 


#0 


CLEAR COUNTER REGS. 


XJ '0)U\>\>i\ 




"PIT 


1 "7 QC1 


A 






STX 


SECCTR 


15 SECOND COUNTER REG. 


m mm ez t tv 

tovVib 1 Pi. 




FF 


1782 


A 






STX 


MINCTR 


15 MINUTE COUNTER REG. 


00068A 


E80C 


CE 


1000 


A 






LDX 


#$1000 


INIT. START DATA POINTER 


f% n f% /' r\ 

00069A 


E80F 


FF 


1783 


A 






STX 


SDPTR 






E812 


FF 


1785 


A 






STX 


EDPTR 


AND END DATA POINTER 


00071 
















TIMER 


COMES UP INIT. IN DESIRED MODE 


(71 fTI f5( T T A 


C 1 C 

Eol D 


yb 


1 


A 






LDAA 


IRQHG 


CONFIGURE AND INIT. 


rx f%(7^ "7 "3 A 
x)\uxj 1 J A 


"CQ 1 "7 


y / 




A 






STAA 


P2DR 


IRQ TO MC6809 


SQVjY) I 'tA 


Ebiy 


Q 

00 


0X 


A 






LDAA 


#$01 






£10 Xo 


y / 




A 






STAA 


P2DDR 






11*0 1 F\ 


uu 




A 






LDD 


TIMERR 


INIT. TIMER FOR 50 MSEC. 


Cf0f0f *7'7 A 




WO 


EFBF 


A 






ADDD 


#$EFBF 




0lc|0f '7Qn 

K/vKf / OA 






0B 


A 






STD 


TIMROC 










EB00 


A 






LDX 


#$EB00 


START ADDRESS FOR DATA 






i7 1: 


178D 


A 






STX 


FROM 




Of^CVQI A 
V KIIC/O J./A 






0080 


A 






LDX 


#$0080 


INIT. NORMAL RAM POINTER 


d dCf O O A 
lO WIOOZA 


TT Q T~\ 
Eo ZU 


r r 


178B 


A 






STX 


NRMPTR 


TO BEG. OF DUAL PORTED RAM 


/7 O O n 


TT" (9( 


Q C 
OD 


00 


A 






LDAA 


#$00 




\QSOV}Q 4 A 


Eo 


y / 


F0 


A 






STAA 


WHNO 














* 




















* 




CHECKING ON 


UPDATE DATA SEMAPHORE (#3) 












* 






(NO DATA PASSED IN REGISTERS) 


CA f% f% O O "A 


Eo J4 


y 


19 


A 


POLLl 


LDAA 


SEMPH3 


CHECK REQUEST 


f7i (1\ d C\ 


TP 
EooD 


A 


80 


A 






ANDA 


#$80 


FOR MORE 


/>! /7( O /7I A 


Eo Jo 


Zo 


02 E83C 






BNE 


CONTl 


DATA 


(XfXfAC\'\ TV 


E83A 


oU 


IE E85A 






BSR 


DMPRAM 


GO DUMP IT 


n.CAf%.C\ O A 


E83C 




08 


A 


CONTl 


LDAA 


TCSR 


CHECK FOR 




t9Q 01? 
£(0 JCi 


OA 


40 


A 






ANDA 


#§40 


TIMER FLAG SET 




£d40 


Z / 


F2 E834 






BEQ 


POLLl 


BRA IF NOT SET 


00095 










* 




















* 


ENTERING 


THE 50 MSEC TIMEOUT SERVICE LOOP 


ivoKl? / 










* 










10 Kf 70r\ 


HiO z 


^ 


08 


A 






LDAA 


TCSR 


DUMMY READ TO CLEAR OCF 








09 


A 






LDD 


TIMERR 


READ TIMER 


flid 1 A 


Eo4d 


C J 


EF9C 


A 






ADDD 


#$EF9C 


REINIT. TIMER - ADJUSTED TO COR- 


MMiMl A 


CO /I 


DD 


0B 


A 






STD 


TIMROC 


RECT FOR ADDED CYCLES OF ROUTINE 


W 1 W z A 


E84B 


FE 


1780 


A 






LDX 


SECCTR 


INCREMENT 15 SEC. CTR. 


00103A 


E84E 


08 










INX 






00104A 


E84F 


FF 


1780 


A 






STX 


SECCTR 




00105A 


E852 


8C 


012c 


A 






CPX 


#300 


CHECK IF 15 SECS. UP? 


00106A 


E855 


26 


DD E834 






BNE 


POLLl 


BRANCH IF NOT (300 TIMES) 


00107A 


E857 


7E 


E8C9 


A 






JMP 


TMRSRV 


GO TO TIMER SERVICE ROUTINE 


00108 










* 










00109 










* 


THIS ROUTINE DUMPS 


THE RAM (15 SEC. DATA SAMPLES) 


001 10A 


E85A 


FC 


1785 


A 


DMPRAM 


LDD 


EDPTR 


CALC. SIZE OF DATA 


00111A 


E85D 


B3 


1783 


A 






SUBD 


SDPTR 


TO BE TRANSFERRED 


00112A 


E860 


FD 


1787 


A 






STD 


TXRMSZ 




00113A 


E863 


05 










LSLD 




CLEAR SIGN BIT 


00114A 


E864 


04 










LSRD 






00115 










* 


CONFIGURE SIZE IN 


FORMAT FOR DPR STORAGE 


00116A 


E865 


7C 


00F0 


A 


COUNT 


INC 
* 


WHNO 


DIVIDING BY 60 
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00117A 


E868 


83 


003C 


A 




SUBU 


Ann 








00118A 


E86B 


2A 


F8 E865 




BPL 


COUNT 








00119A 


E86D 


7A 


OOFO 


A 




DEC 


WHNO 








00120A 


E870 


C3 


003C 


A 




ADDD 


#60 


DONE 






00121a 


E873 


D7 


Fi 


A 




STAB 


RMDR 


SAVE KEinAlNUbK 






00122 










♦CHECK 


IF WHOLE NUMBER 


EQUAL ZERO 






\J \J ^ £t J n 


E875 




FO 


A 




LDAA 


WHNO 








00124A 


E877 


81 


00 


A 




CMPA 


#00 








001 ?SA 


E879 


27 


28 E8A6 




BEQ 


LAST 








00126 










* LOADING 


60 BYTES 


Ur UAIA iU UlrK 






00127A 


E87B 


CC 


OOBO 


A 


LOOP 


LDD 


#$00B0 


TXI T T> r^D D DT^D 
IIM 1 1 • UrK IrlK* 






n n 1 7 fi A 

U J. ^ O n 


E87E 


FD 


1789 


A 




STD 


TEMP 








n n 1 9 Q A 

U U X ^ J 


Cj O O X 


PP 


1783 


A 


TLOOP 


LDX 


SDPTR 


GET MEMORY LOG & DATA 






U VJ i J U f\ 


E884 


Pfi 


00 


A 




LDAB 


0,X 








U U X J X rt 


PR fl fi 

Ej O O D 


n ft 

u o 








INX 




SET SDPTR UP FOR NEXT 






01 ^ ? A 


E887 


PP 


1783 


A 




STX 


SDPTR 


TIME 






00133A 


E 8 8A 


FE 


1789 


A 




LDX 


TEMP 


CjE i ULb 1 iNAi iUN 






00134A 


E88D 


E7 


00 


A 




STAB 


OfX 


STORE DATA 






00135A 


E88F 


08 








INX 




SET TEMP UP FOR NEXT 






00136A 


E890 


FF 


1789 


A 




STX 


TEMP 


TIME 






U U X <J / A 


E893 


8C 


OOEC 


A 




CPX 


#$OOEC 








00138A 


E896 


26 


E9 B881 




BNE 


TLOOP 


CHECK X F b U BY 1 bb 1 A 






\J \J ^ J 7r\ 


c*0 7 O 


m 


IB 


A 




STAB 


SEMPH5 




< no 


uu 


U U X f Un 


PR Q A 


cm 

y D 


IC 


A 


WAITl 


LDAA 


SEMPH6 


CHECK IF OK TO PROCEED 






0141A 


E89C 


8 4 


80 


A 




AN DA 


#$80 








U U J- *4 ^fi 


P ft Q P 


9 fi 


FA E89A 




BNE 


WAITl 


BKANCrl Ir NUi UK 






U U J. J/\ 


p ft A n 


ftfi 


00 


A 




LDAA 


#00 


^LICi^V TO ATT TaVTlO 

CribiLK ir ALL dU tJilb 








Pft A 9 


7 X 


FO 


A 




CMPA 


WHNO 


BLOCKS ARE TX FERRED 






n n 1 4 s A 

VJ U X *i Jrt 


RR A4 


?fi 


;D5 E87B 




BNE 


LOOP 


BKANLri it NUU. 






U U J. 4 










* TRANSFER 


REMAINDER 


OF DATA 






n n 1 A 7 a 

U U ± rt / /A 


Cj AD 




OOBO 


A 


LAST 


LDD 


#$00B0 


BEGINNING OP TX'PER 






n n 1 A ft a 

U VJ X *T O rt 


P ft A Q 


p n 


1789 


A 




STD 


TEMP 


AREA 






149A 


E8AC 


PP 


1783 


A 


ELOOP 


LDX 


SDPTR 


GET START ADDRESS 






OOlSOA 


E8AF 


E6 


GO 


A 




LDAB 


,X 


GET DATA 






00151A 


E8B1 


08 








INX 




TiorPTiTvno o r\ Ti xT D V fTl c» O rH UF 

PRtiPAKcj tOK NeiAT tiiTt-il 






001S2A 


E8B2 


FF 


1783 


A 




STX 


SDPTR 


AND SAVE 






00153A 


E8B5 


FE 


1789 


A 




LDX 


TEMP 


GET DESTIN. ADDRESS 






00154A 


E8B8 


E7 


00 


A 




STAB 


0,X 


STORE IN DPR 






00155A 


E8BA 


08 








INX 




PREPARE FOR NEXT STORE 






00156A 


E8BB 


FF 


1789 


A 




STX 


TEMP 


AND SAVE 






00157A 


E8BE 


FE 


1785 


A 




LDX 


EDPTR 


LHEiLK if lXJNEi 






nm "iRA 

\J \j M J on 


EiO X 




1783 


A 




CPX 


SDPTR 


CHECK IF DONE 






00159A 


E8C4 


26 


E6 E8AC 




BNE 


ELOOP 


BRANCH IF NOT TO END LOOP 






Q 1 fiOA 


E8C6 


D7 


IB 


A 




STAB 


SEMPH5 


SET TX'FER SEMPH.- GIVES 


o n Q 


(* nn H 
uu 


n 1 fi 1 A 

vJ vJ X U X rt 


E8C8 


3Q 








RTS 




COIN HOME 






00152 










* 












00163 










* 


TIMER SERVICE ROUTINE - ACCESSED EVERY 


1 c: 


bbCON 


00164 










* 












00165A 


E8C9 


7C 


1782 


A 


TMRSRV 


INC 


MINCTR 


INCREMENT 15 MIN. CTR. 






00166A 


E8CC 


CE 


0000 


A 




LDX 


#00 


CLEAR 15 SEC. CTR. 






00167A 


E8CF 


FF 


1780 


A 




STX 


SECCTR 








00168A 


E8D2 


FE 


178D 


A 




LDX 


FROM 


READ DATA 






00169A 


E8D5 


8C 


EB80 


A 




CPX 


#TO 


DUMMY ROUTINE FOR DATA 






00170A 


E8D8 


26 


06 E8E0 




BNE 


AROUND 


AQUISITION 






00171A 


E8DA 


CE 


EBOO 


A 




LDX 


#$EBOO 








00172A 


E8DD 


FF 


178D 


A 




STX 


FROM 








00173A 


E8E0 


A6 


00 


A 


AROUND 


LDAA 


0,X 








00174A 


E8E2 


08 








INX 
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rt n 1 1 c K 
OOI/dA 


B8E3 


FF 


178D A 




STX 


FROM 




00176A 


E8E6 


FE 


1785 A 




LDX 


EDPTR 


GET NEXT OPEN LOCATION 


00177A 


E8E9 


A7 


00 A 




STAA 


, X 


STORE DATA THERE 


00178A 


E8EB 


08 






I NX 




INCREMENT AND CHECK 


00179A 


E8EC 


8C 


1780 A 




CPX 


#51780 


DATA POINTER FOR 


00180A 


E8EF 


26 


03 E8P4 




BNE 


DOVRN 


END OF RAM 


00181A 


E8F1 


CE 


1000 A 




LOX 


#$1000 




001o2A 


E8F4 


FF 


1785 A 


DOvRN 


STX 


EDPTR 


SAVE END DATA POINTER 


00183A 


E8F7 


BC 


1783 A 




CPX 


SDPTR 


CHECK FOR DATA OVERRUN 


00184A 


E8FA 


26 


07 E903 




BNE 


OK 




U U 1 o Dh 


E8FC 


CE 


1 n A rt IV 
lUUU A 




LDX 


JI ^ 1 ft ft ft 

ff?1000 


DATA OVERRUN 


A r\ 1 OCA 
U U 1 o b A 


E8FF 


Uo 






INX 




INCREMENT START 


0187A 


E900 


FF 


1783 A 




STX 


SDPTR 


ADDRESS POINTER 


n n 1 o o TV 
U U lo cSA 




1 
ol 


11 A 
ii A 


OK 


CMPA 


#IiOW 


CH E CK IF Data I « 


018 9A 


E905 


25 


21 E928 




BLO 


ERROR 


RANGE 


00190A 


E907 


81 


CC A 




CMPA 


#HIGH 




U U X 7 X A 






1 n PQ7A 




BHI 


ERROR 




UU X 7tfbn 




C V 


J. / A A 




iiUAo 


ninLxK 


DATA VK;UU'~ L-HEv^K IF XD NIN • 


UUx7 


V Q f\ O 




■Jr* & 






ff ou 


L.UUIMi£iK imiLJJ UUi iiSi r 


uuiy 4A 


oo 1 n 
E7IU 


zo 


I 1 00 "3 

II oMli 




i5nri 




DKAnuil If 


0019 5A 


E912 


FE 


178B A 




LDX 


NKMP i K 


Ir oU bTL/RE XT IN UFFEK 


00196A 


E915 


A7 


00 A 




STAA 


ft V 

U , X 




r\r\i Q 7 A 
U U 1 y / A 




oL 


n n A c A 
U UAr A 




V^lr A 


!tt <; BP 
ff 9 At 




u u 1 y oA 


E91A 


2. 1 


29 E94D 








n\7PRRTTM— TP HMP £ RPQPT 


00199A 


E91C 


08 






INX 






00200A 


E91D 


FF 


178B A 




STX 


NRMPTR 


UFUA i Cj UAi a FiK. rUK NcjAi iXMij 


00201A 


E920 


7F 


1782 A 




CLR 


MINCTR 


REINIT. 15 MIN COUNTER TO 


00202A 


E923 


96 


17 A 


GONE 


LDAA 


SEMPHl 


REGAIN OWNERSHIP OF SEMPHl 


00203A 


E925 


7E 


E834 A 




JMP 


POLLl 


GET OUT OF ROUTINE 


00204 








* 








00205 








* ERROR ROUTINE 




00206 








* 








00207A 


E928 


D7 


17 A 


ERROR 


STAB 


SEMPHl 


SET ERROR SEMAPHORE ( 1 ) 


00208A 


E92A 


C6 


00 A 




LDAB 


tIRQLW 


PULL '09 IRQ LOW 


00209A 


E92C 


D7 


03 A 




STAB 


P2DR 




00210A 


E92E 


96 


lA A 


KPLKNG 


LDAA 


SEMPH4 


CHECK. FOR IRQ CLEAR SIGNAL 


00211A 


E930 


84 


80 A 




ANDA 


#$80 




00212A 


E932 


26 


06 E93A 




BNE 


DMPCHK 


BRA IF ISN T CLEAR 


00213A 


E934 


C6 


01 A 




LDAB 


#IRQHG 


CLEAR 


00214A 


E936 


D7 


03 A 




STAB 


P2DR 


'09 IRQ 


21 5A 


fl 

E9 io 


1 A 

zU 


Ey E9ZJ 




BRA 


GONE 


GET OUT OF ROUTINE 


r» 1 1 j\ 
UU2iDA 


E9 3A 


Do 


19 A 


DMPCHK 


LDAB 


SEMPH3 


CHECK FOR REQUEST 


U U /I / A 


by 


Q A 
4 


U A 




ANDA 


#$80 


TO DUMP DATA IN RAM 


n n 9 1 fi A 

U U ^ X Ort 


P Q R 




R P R Q 9 P 




BNE 


KPLKNG 


KEEP LOOKING 


00219A 


E940 


BD 


E85A A 




JSR 


DMPRAM 


DUMP THE RAM 


00220A 


E943 


20 


E9 E92E 




BRA 


KPLKNG 


WAii r UK IKQ LLhAK 


00221A 


E945 


97 


18 A 


DPRST 


STAA 


SEMPH2 


CP'P KT/^DM a T nrtMD CPMDU 
oCil JNUx^rlAi-i UUrlir DCiflftl • 


00222A 


E947 


C6 


00 A 




LDAB 


tIRQLW 


DT7T T • no Ton T.ntJ 
xrUJuli U 7 JjUn 


00223A 


E949 


D7 


03 A 




STAB 


P2DR 




00224A 


E94B 


96 


lA A 


WAIT 


LDAA 


SEMPH4 




00225A 


E94D 


84 


80 A 




ANDA 


#$80 


WATTING ON '09 


00226A 


E94F 


26 


FA E94B 




BNE 


WAIT 




00227A 


E951 


C6 


01 A 




LDAB 


#II^HG 


CLEAR 


00228A 


E953 


D7 


03 A 




STAB 


P2DR 


•09 IRQ AND 


00229A 


E955 


7F 


178B A 




CLR 


NRMPTR 


RESET NORMAL RAM POINTER 


00230A 


E958 


7F 


1782 A 




CLR 


MINCTR 


RESET 15 MIN. COUNTER TO 


00231A 


E95B 


20 


C6 E923 




BRA 






00232 










END 







■J 
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TOTAL ERRORS 00000 — 00000 










E8E0 


AROUND 


00170 00173* 










E83C 


CONTl 


00090 00092* 










E865 


COUNT 


00116*00118 










E93A 


DMPCHK 


00212 00216* 










E85A 


DMPRAM 


00091 00110*00219 










E8F4 


DOVRN 


00180 00182* 










E945 


DPRST 


00198 00221* 










1785 


EDPTR 


00042*00070 00110 


00157 


00176 


00182 




E8AC 


ELOOP 


00149*00159 










E928 


ERROR 


00189 00191 00207* 










178D 


FROM 


00056*00080 00168 


00172 


00175 






E923 


GONE 


00194 00202*00215 


00231 








oocc 


HIGH 


00050*00190 










0001 


IRQHG 


00054*00072 00213 


00227 








0000 


IRQLW 


00052*00208 00222 










E92E 


KPLKNG 


00210*00218 00220 










E8A6 


LAST 


00125 00147* 










E87B 


LOOP 


00127*00145 










0011 


LOW 


00048*00188 










1782 


MINCTR 


00037*00067 00165 


00192 


00201 


00230 




178B 


NRMPTR 


00047*00082 00195 


00200 


00229 






E903 


OK 


00184 00188* 










0001 


P2DDR 


00011*00075 










0003 


P2DR 


00010*00073 00209 


00214 


00223 


00228 




E834 


POLLl 


00088*00094 00106 


00203 








OOFl 


RMDR 


00033*00121 










1783 


SDPTR 


00040*00069 00111 


00129 


00132 


00149 


00152 00158 00183 00187 


1780 


SECCTR 


00035*00066 00102 


00104 


00167 






0017 


SEMPHl 


00025*00202 00207 










0018 


SEMPH2 


00026*00221 










0019 


SEMPH3 


00027*00088 00216 










OOlA 


SEMPH4 


00028*00210 00224 










OOIB 


SEMPH5 


00029*00139 00160 










OOlC 


SEMPH6 


00030*00140 










0008 


TCSR 


00012*00092 00098 










1789 


TEMP 


00045*00128 00133 


00136 


00148 


00153 


00156 


0009 


TTMFRR 

J. J. 11 ill £\C\. 


nnoi3*finn76 00099 










OOOB 


TIMROC 


00014*00078 00101 










E881 


TLOOP 


00129*00138 










E8C9 


TMRSRV 


00107 00165* 










EB80 


TO 


00057*00169 










EBOO 


TXDCR 


00039* 










1787 


TXRMSZ 


00044*00112 










E94B 


WAIT 


00224*00226 










E89A 


WAITl 


00140*00142 










OOFO 


WHNO 


00031*00084 00116 


00119 


00123 


00144 
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Clear 
Interrupt 
Mask 



Set 
Interrupt 
Mask 



Clear 
IRQ CLR 
Semaphore 



Branch to 
Get Data 
Subroutine 




(Error 
Routine J 



j[ Normal \ 
Routine J 



Gone ^ 



\^ Routine J 
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; 1 










n n n m 

u u U U J. 










* 








U UUU z 










* 








U UUU J 












OPT 


ABS,LLE 


=85,S,CRE 












* 








u u U W J 










* 








u u u u o 










* THIS IS THE CODE THAT ALLOWS THE MC6809E TO 


n nnn7 

u u u u / 










* 


INTERFACE WITH THE MC68120 IN A 


u u u u o 










* 


MULTIPROCESSOR CONFIGURATION 


A n n n Q 

U u u u y 










* 








U UU 1 U 










* 








A n A 1 1 
U U Ul 1 


















A n n T 1 






0017 




SEMPHl 


EQU 


$17 


ERROR SITUATION 


u u U ± J 






u u 1 o 




SEMPH2 


EQU 


$18 


NORMAL RAM DUMP 


U U U X *4 






n n 1 Q 
u u 1 y 




SEMPH3 


EQU 


$19 


RQST FOR DATA (15 SEC INCR.) 


A n A 1 c 

u u u lo 






UOIA 


A 

n 


SEMPH4 


EQU 


$1A 


IRQ CLEAR 


u U U X D 






r) A 1 19 


n 


SEMPH5 


EQU 


$1B 


60 BYTE BLOCK OF DATA FLAG 


U UU i / 






OUIC 


n 


SEMPH6 


EQU 


$1C 


60 BYTE BLOCK OF DATA FLAG 


UUUlo 






OOFO 


A 


WHNO 


EQU 


$F0 


WHOLE NUMBER OF 60 BYTE BLOCKS 


nnn 1 q 










* 






TO BE MOVED 


A Art 1 A 






UOFl 


A 

n 


RMDR 


EQU 


$F1 


REMAINDER OP THE 60 BYTE BLOCK 


00021 










* 






TO BE MOVED 


A A A O O 

00022 






0100 


a 

n 


LOWER 


EQU 


$100 


WHEN THIS ADDRESS IS WRITTEN 


A A A T O 
U U U Z J 










* 






TO, THE SYSTEM T&P IS LOWERED 


00024 






0101 


a 

n 


RAISE 


EQU 


$101 


WHEN THIS ADDRESS IS WRITTEN 


00025 










* 






TO, THE SYSTEM T&P IS RAISED 


00 26 






12F0 




CMPTMP 


EQU 


$12F0 


TEMP. STORAGE FOR COMPARE 


27 










* 






(2 bytes) 


A A A O O 

U U U zo 






izF2 


rt 


LASTl 


EQU 


$12F2 


SLOPE POINT VALUES (1 byte) 


A A A O Q 

u UU zy 






izF J 


A 


DTAREQ 


EQU 


$12F3 


BUTTIN REQUEST FOR DATA 


A A A A 
U UU iU 










* 






(1-request; 0-no request) 


00 31 










* 








0032 










* 








A A A 
U UU J J 










* 








A A A "5 4 A 

U UU o 4A 


conn 










ORG 


$F800 




A A A O C 

U UU JD 










* 








A A A O C 
UUU JO 










* 








A A A O "7 

UUU o7 










* 


INITIALIZATION ROUTINE 


rt A A O X 

U0038A 


F800 


lOCE 


13FF 




START 


LDS 


#$13FF 


INIT. STACK 


000 39A 


F804 


86 


00 






LDA 


#$00 


INIT. BUTTON REQ. FOR 


00040A 


F806 


87 


12F3 


A 




■sm 


DTAREQ 


DATA (SET UP FOR NO REQ.) 


00041 










* 








00042 










* START POLLING ON 


DUM RAM REQUEST AND WAIT 


00043 










* 


FOR INTERRUPT REQUEST 


00044 










* 








00045A 


F809 


B6 


12F3 


A 


MAIN 


LDA 


DTAREQ 


CHECK IF OPERATOR 


00046A 


F80C 


81 


80 


A 




CMPA 


#$80 


KEQOESTING DATA 


00047A 


F80E 


26 


02 


r o X z 




BNE 


OPEN 




00048A 


F810 


8D 


07 






BSR 


GETDTA 


GO GET DATA 


00049 










* LET 


IN IRQ 


INPUT 




00050A 


F812 


IC 


EF 


A 


OPEN 


ANDCC 


#$EF 


CLEAR I BIT 


00051A 


F814 


12 








NOP 






00052A 


F815 


lA 


10 


A 




ORCC 


#$10 


SET I BIT 


00053A 


F817 


20 


FO 


r o u 7 




BRA 


MAIN 


BACK 


00054 










* 








00055 










* GET DATA 


SUBROUTINE 


00056 










* 








00057A 


F819 


97 


19 


A 


GETDTA 


STA 


SEMPH3 


ASK FOR DATA 


00058A 


F81B 


96 


IB 


A 


WAITl 


LDA 


SEMPH5 


WAIT FOR READY 
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U U U J J/\ 


v oxu 


ft A 


80 


A 




ANDA 


#$80 


SEMAPHORE 


n n n c n n 
U U U b UA 


F81F 


26 


FA 


F81B 




BNE 


WAITl 


BRANCH IF NOT READY 


00 61A 


F821 


96 


FO 


A 


FCHDTA 


LDA 


WHNO 


READY, READ HOW MUCH DATA 


r\ f\ f\ 1^ •~\ ti 

00 6 2A 


F823 


81 


00 


A 




CMPA 


#00 


TO TRANSFER 


A n c o A 
UUUb JA 


F825 


27 


IC 


F843 




BEQ 


LAST 


TX'PER REMAINDER IF WHNO =0 


00064A 


F827 


8E 


OOBO 


A 




LDX 


«$00B0 


PREPARE TO TX'FER (READ) 


00065A 


F82A 


10 8E 


1000 


A 




LDY 


#$1000 


60 BYTE BLOCK 


n n rk £ £ 










* LCWU>S DATA 


TO IPC PRINTER CONTROLLER AT $E000 


00067 










* THE 


CONTROLLER IS WAITING FOR THE DATA 


00068A 


F82E 


EC 


84 


A 


MOVED 


LDD 


0,X 


GET 2 BYTES 


A A/\£0 A 

UUUoyA 


o o o n 


ED 


89 EOOO A 




STD 


>$E000 ,X 


STORE TO PRINTER IPC 


f\ n n 1 n -A 

00U70A 


F834 


30 


02 


A 




LEAX 


2,X 




00071A 


F836 


ED 


Al 


A 




STD 


,Y++ 


STORE 2 BYTES 


00072A 


F838 


8C 


OOEC 


A 




CMPX 


#$EC 


CHECK IF DONE (60 BYTES) 


00073a 


F83B 


26 


Fl 


F82E 




BNE 


MOVED 


GO AGAIN 


U U U / 4A 


F83D 


A 1 

y / 


IC 


A 




STA 


SEMPH6 


CLEAR SEMPH6 


n n n 7 R a 




n a 


FO 


A 




DEC 


WHNO 




n n n 7 a 


r o *i X 


z u 


D8 


F81B 




BRA 


WAITl 


WAIT FOR NEXT BLOCK 


r\ A r\ 7 "7 A 
U U U / / A 


V Q A 

r o4 J 


oh 


OOBO 


A 


LAST 


LDX 


#$00B0 


INITIALIZE POINTERS FOR LAST 


r\ r\ n T o n 
UUU /oA 


F846 


108E 


103C 


A 




LDY 


#$103C 


TRANSFER ( $100 0+60=$10 3C ) 


00079A 


F84A 


IF 


10 


A 




TFR 


X,D 


CHECK HOW MUCH TO MOVE 


00080A 


F84C 


D3 


FO 


A 




ADDD 


WHNO 




U UUo iA 


F84E 


1 n o "3 


OOBO 


A 




CMPD 


#$00B0 


CHECK IF RMDR =0 


r\ rt rt o 3v 


F852 


27 


15 


F869 




BEQ 


OUT 


AND GET OUT IF SO 


A n n o Q X 




FD 


12F0 


A 




STD 


CMPTMP 


IF NOT GO MOVE BLOCK 


nnno Aft 


coo 1 


/v. 


12P1 


A 




INC 


CMPTMP+1 


ADD 1 TI CMPTMP+1 (OOFl) 


UUOobA 


F85A 


A6 


84 


A 


NXTBYT 


LDA 


0,X 

$E000,X 


GET NEXT BYTE OF DATA 


A A A a f x 

000 o6A 


F85C 


A7 


89 EOOO A 




STA 


STORE TO PRINTER 


n n Hfi 7 a 

u u U O / 1\ 


I? Q tf; n 

f D u 


jU 


01 


A 




LEAX 


1,X 




A A A O O » 

00088A 


F86 2 


A7 


AO 


A 




STA 


0,Y+ 


STORE IN RAM 


00089A 


F864 


BC 


12F0 


A 




CMPX 


CMPTMP 


CHECK IF DONE 


A A A A A 7\ 

uuuy UA 


F867 


26 


Fl 


F85A 




BNE 


NXTBYT 


IF NOT GO AGAIN 


A A A A T TV 

u uuy lA 


F869 


97 


IC 


A 


OUT 


STA 


SEMPH6 


CLEAR SEHPH6 


A A A O O A 

u uuy zA 


F86B 


39 








RTS 






A A n Q 
u u U J 


















A n fi Q y1 

u u u y ft 










* 








A A A A C 

u u uy -> 










* 


IRQ 


ROUTINE 




A A A Q C 

u u u y D 










* 








A A A Q "7 

u uu y / 










* AH-HA! THE 


MC68120 WANTS TO TELL ME SOMETHING!! 


A A A Q Q A 

u u u y o A 


c Q C 

r o dL 


y b 


17 


A 


IRQ 


LDA 


SEMPHl 


CHECK IF ERROR SITUATION 


n n QQ a 

u u \J y y t\ 


p p c p 
r o o Ci 


ft A 


80 


A 




ANDA 


#$80 




U U J.U UA 


r o / u 


OT 
Z / 


09 


F87B 




BEQ 


ERROR 


BRANCH IF SO 


A m A 1 » 
U UXUIA 


Fo / Z 


a£ 

70 


18 


A 




LDA 


SEMPH2 


CHECK FOR NORMAL DATA 




r o / 4k 




80 


A 




ANDA 


#$80 


DOWNLOAD 


001 0"^ A 






3B 


F8B3 




BEQ 


NORMAL 


BRANCH IF SO 


00104A 


F878 


97 


lA 


A 


CI.RXRQ 


STA 


SEMPH4 


WRITE CLEAR IRQ SEMPH 


00105A 


F87A 


3B 








RTI 




BACK TO MAIN 


00106 










* 








00107 










♦RECEIVE ERROR DATA ROUTINE 


00108 










* 








00109A 


F87B 


8D 


9C 


F819 


ERROR 


BSR 


GETDTA 


GET DATA INTO RAM 


OOllOA 


F87D 


BE 


12F0 


A 




LDX 


CMPTMP 


GET ADDRESS OF LATEST DATA 


OOlllA 


F880 


A6 


84 


A 




LDA 


0,X 


GET DATA AND CHECK 


00112A 


F882 


81 


CB 


A 




CMPA 


#$CB 


IF DATA 


00113A 


F884 


25 


07 


F88D 




BLO 


CONT 


TOO HIGH 


00114A 


F886 


86 


CC 


A 




LDA 


#$CC 


IF SO - TUIOJ DOWN TEMP. 


00115A 


F888 


B7 


0100 


A 




STA 


LOWER 




00116A 


F88B 


20 


06 


PS 9 3 




BRA 


SLOPE 


GO TO SLOPE CHECK 
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0011 7a 


E OOU J.tf< 






CuNT 


NOP 






UUX J.O/1 


IS^QQ^ QC 
r OO E, o O 


XX 


K 

A 




LDA 


#$11 




U Ui. J. 7 A 






A 

A 




STA 


RAISE 


INCREASE TEMP. 


U U X z u 








it 








U U X Z X 








^ IF 


SLOPE 


NEG. - GETTING HOTTER 


U U X z z 








* IF 


SLOPE 


POS. - GETTING COLDER 


n n 1 9 "5 

U U X Z J 
















n n 1 9 A B 

U U X Z 4 A 


Ci Q Q T AC 

r y J Ad 


Q 9 
o Z 


A 

A 


SLOPE 


LDA 


0,-X 


GET LAST 


U U X Z J A 


r y D D / 


1 9C 9 

XZr Z 


A 

A 




STA 


LASTl 


DATA AND NEXT 


n n 1 9 c A 

U U X Z D A 


Q Q Q a 

r o y o Ad 


O 4 


A 

A 




LDA 


0,X 


TO LAST DATA 


n m 9 7a 

U U X Z / A 


P Q Q A R n 

r o ^ A o u 


"1 9P9 
X Z r Z 


A 
A 




SUBA 


LASTl 




U U X zo A 


C Q fi 7^ OA 

r o y L) /A 


AO 
UB 


F8AA 




BPL 


MAGNC 


BRANCH IF COLDER 


u u 1 z y 








•k 






NEG. SLOPE- HOTTER 


U U X o U A 


Q Q Q ^ 


7F 


A 




AN DA 


#$7F 


DELETE NEG SIGN 


A A 1 T 1 A 

U U i J XA 


O O A 1 O T 


10 


A 


MAGHH 


CMPA 


#$10 


COMPARE MAG OF SLOPE 


A A 1 O A 


u* Q n T c 
c oA J ZD 


D3 


F878 




BLO 


CLRIRQ 


TO CRIT. SLOPE VALUE 


U U X J JA 




0100 


A 




STA 


LOWER 


LOWER TEMP. 1 INCR. 




p Q A Q on 
r oAo zu 


CE 


F878 




BRA 


CLRIRQ 




U U X J D A 


T? Q a A Q 1 
t oAA oX 


10 


A 


MAGNC 


CMPA 


#$10 


COMPARE MAG OF SLOPE TO 


n m Tea 

U U X J D A 


C Q A o c 
r OAL, Z 3 


CA 


F878 




BLO 


CLRIRQ 


CRIT SLOPE VALUE 


A A 1 "3 T A 
U U J. J /A 


F8AE B7 


0101 


A 




STA 


RAISE 


RAISE TEMP. 1 INCR. 


A A 1 O O A 

OOi joA 


F8B1 20 


C5 


F878 




BRA 


CLRIRQ 




A A 1 "3 A A 

u u i J yA 


FdB3 oE 


0080 


A 


NORMAL LDX 


#$0080 


PREPARE TO GET DATA 


A A 1 ^ A A 

u Ui 4UA 


FoBd el 


84 


A 




LDD 


, X 


GET DATA 


A A 1 ^ 1 A 

U U X4XA 


r oBo ED 


89 EOOO A 


MOVIT 


STD 


$E000 ,X 


MOVE TO PRINTER 


A A 1 >1 O A 

U UX 4 2A 


FoBC 3U 


02 


A 




LEAK 


2,X 




A A 1 /I O A 

UU14 JA 


FoBE oC 


OOBO 


A 




CMPX 


#$B0 


CHECK IF DONE 


A A 1 A A 

U Ul 4 4A 


FoCl ZD 


F5 


F8B8 




BNE 


MOVIT 


KEEPING GOING 


00145A 


F8C3 20 


B3 


F878 




BRA 


CLRIRQ 


CLEAR IRQ AND OUT 


00146 








* 








00147A 


FFFO 








ORG 


$FFFO 




00148A 


FFFO 


F800 


A 




FDB 


START 




00149A 


FFF2 


FSOO 


A 




f DB 


START 




00150A 


FFF4 


F800 


A 




FDB 


START 




00151A 


FPF6 


FSOO 


A 




FDB 


START 




00152A 


FPF8 


F86C 


A 




FDB 


IRQ 




00153A 


FPFA 


F800 


A 




FDB 


START 




00154A 


FFFC 


FSOO 


A 




FDB 


START 




00155A 


FFFE 


FSOO 


A 




FDB 


START 




00156 










END 






TOTAL ERRORS 00000 — 00000 










TOTAL WARNINGS 


00000- 


-00000 








F878 


CLRIRQ 


00104* 


00132 


00134 




F85A NXTBYT 00085*00090 






00136 


00138 


00145 




F812 OPEN 00047 00050* 


12FC 


CMPTMP 


00026* 


00083 


00084 




F869 OUT 


00082 00091* 






00089 


00110 






0101 RAISE 00024*00119 00137 


F88E 


CONT 


00113 


00117* 


00045 




OOFl RMDR 00020* 


12F3 


DTAREQ 


00029* 


00040 




0017 SBMPHl 00012*00098 


F87E 


ERROR 


00100 


00109* 






0018 SEMPH2 00013*00101 


F821 


FCHDTA 


00061* 








0019 SEMPH3 00014*00057 


F819 


GETDTA 


00048 


00057* 


00109 




OOlA SEMPH4 00015*00104 


F86C 


IRQ 


00098* 


00152 






OOIB SEMPH5 00016*00058 


F843 


LAST 


00063 


00077* 






OOlC SEMPH6 00017*00074 00091 


12F2 


LASTl 


00028* 


00125 


00127 




F893 SLOPE 00116 00124* 


0100 


LOWER 


00022* 


00115 


00133 




F800 START 00038*00148 00149 


■ F8AA MAGNC 


00128 


00135* 








00150 00151 00153 


F8A1 


MAGNH 


00131* 










00154 00155 


F809 


MAIN 


00045* 


00053 






F81B WAITl 00058*00060 00076 


F82E 


MOVED 


00068* 


00073 






06FO mm 00018*00011 00075 


F8B8 


MOV IT 


00141* 


00144 








00080 


F8B3 


NORMAL 


00103 


00139* 
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